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EDTSLNONCTG = test for non-contiguous range 18-Sep-19 4 00:53: VAX-11 Bliss-32 V4.0-74 Page 1 
’ 14-Sep-1984 99:33:39 NT EKSVMEMASTER EDT SRCSLNONCTG.BLIs1 . (1) 
001 ZTITLE ‘EDTSLNONCTG = test for non-contiguous range’ 
One MODULE EDTSLNONCTG ( ! Test for penncont | aveus range 
ita pOENT = 'v04-000' ! File: LNONCTG.BLI Edit: JBS1004 
BR0? ! BEGIN 
0007 \ leneneneenenennenerenteenneeneretentererertrereeteninnertntrnetentrnetenttens 
:* ea 
0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. % 
de ; ALL RIGHTS RESERVED. * 
. a 
oO78 1 !'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THI R NY ER * 
0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ootS i - TRANSFERRED. * 
Py *® 
0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
tt) ! ‘* CORPORATION. * 
'e * 
0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
one ! - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
4 w 
0027 1 !« * 
Bn55 : ‘eect ial ghia an inch dala 
$086 1 
0031 1 !++ 
it t4 : FACILITY: EDT == The DEC Standard Editor 
0034 1 | ABSTRACT: 
0035 1! 
B38 : Test for a non-contiguous range. 
sited ! ENVIRONMENT: Runs at any access mode - AST reentrant 
9040 i : AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 
004 MODIFIED BY: 
044 1 | 1-001 = Original. DJS 10-MAR-81. This module was created b 
045 1! extrac ine the routine EDTSSTST_NONCNTGRNG from EXEC.BLI. 
0046 1! 1-005 = Regularize headers. JBS 20-Mar-1981 
0047 1 ! 1-003 - Use new message codes. JBS 04-Aug-1981 
0048 : } 1-004 = Improve the appearance of the Listing. JBS 14-Jun-1983 
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5 
£16 = test for non-contiguous range 1b-se 
ons 14-Se 


RSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM’ ; 


FORWARD ROUTINE 
EDTSSTST_NONCNTGRNG; 


INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ'; 


! MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 

NONE 

EXTERNAL REFERENCES: 
: In the routine 


32 V4.0-74 p 
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v04 EDTSSTST_NONCNTGRNG = test for non-contiguous 14-Sep-1984 12:23: DISKSVMSMASTER: CEDT.SRCJLNONCTG.BLI;1 (3) | 

H i 06 5 ! ZSBTTL ‘EDTSSTST_NONCNTGRNG = test for non-contiguous range’ : 
3 $e ; 1 GLOBAL ROUTINE EDTSSTST_NONCNTGRNG ( ' Test for non-contiguous range ‘ 
: 8 658 1 RANGE ! The range to test ‘ 
; 0659 1 = : 
; 0660 1 ; 
; vee 1 l+4 : 
: 4 296 : } FUNCTIONAL DESCRIPTION: : 
; 94 664 1! This routine takes a range node and determines whether or not it : 
; W 0665 1! defines a contiguous range. The range is non-contiguous if it is : 
3 bs Bee ! a ALL or if the next range field is non-zero, indicating and AND. : 
; 008 1 ! FORMAL PARAMETERS: ; 
; WW 0669 1! : 
: 100 06 1 ! RANGE The range to test : 
; 101 06,1; 1! : 
; 106 0672 1 ! IMPLICIT INPUTS: $ 
3; 0675 1! : 
: 104 0674 1! NONE : 
; 105 0675 1! : 
: 106 0676 1 ! IMPLICIT OUTPUTS: : 
: 107 0677 1: | ; 
; 108 0678 1! NONE : 
: 109 0679 1! : 
s 30 0680 1 ! ROUTINE VALUE: : 
s Vi 0681 1! : 
3 Ng 0682 1! 0 = range is contiguous, 1 = range is non-contiguous : 
; 1 0685 1! : 
; (114 0684 1 ! SIDE EFFECTS: : 
3 T15 0685 1! : 
: 116 0686 1! Prints a message if the range is non-contiguous. : 
s Wz 0687 1! Calls itself recursively if the range refers to a buffer. : 
; 138 0688 1! : 
; [«Ti9 0689 1 !-- : 
; 120 0690 1 : 
: 1g! 0691 BEGIN : 
3 ¢ 069 : 
: \§ 069 EXTERNAL ROUTINE : 
3: 124 0694 EDTSSFMT_MSG; : 
: \¢3 0695 ; 
; 126 0696 MESSAGES ((RANNONCON)); 3 
3 ter 0697 3 
: 128 69 MAP : 
3 : > 8900 RANGE : REF NODE_BLOCK; | : 
>: 131 0701 IF ((.RANGE CRAN_TYPE] EQL RAN_ALL) OR (.RANGE CNEXT_RANGE] NEQ 0)) : 
; 13 4 THEN : 
s Te 070 BEGIN 3 
: 13 704 EDTSSFMT_MSG (EDTS$_RANNONCON) ; : 
s 155 705 RETURN (7); | : 
yy 706 EN | : 
s 57 707 ELSE ‘ 
; 138 7OB ¢ | | ; 
; 139 709 ! If is is a buffer range, we better look at the range below it. : 
: 140 Brig !- : 
3 (141 711 : 


149 
150 


; Routine Size: 
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t_ for non-contiguous range 18-Sep-19 


EDTSLNONCTG = tes 4 00:53: VAX-11 Bliss-32 V4. 
EDTS$TS1NONCNTGRNG = test for non-contiguous 107805-1 3b 99:33:39 DISKSVMSMASTER: CED 
orig [ (.RANGE CRAN_TYPE] EQL RAN_BUFFER) 
ar , RETURN (EDTSSTST_NONCNTGRNG (.RANGE CRANGE1))) 
a RETURN (0); 
718 «#1 END; ! of routine EDTS$TST_NONCNTGRNG 
-TITLE EDTSLNONCTG EDTSLNONCTG = test for non-contiguo 
us range 
-IDENT \v04-000\ 
-EXTRN EDTSSFMT_MSG, EDT$_RANNONCON 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
0004 00000 eENTRY EDTSSTST_NONCNTGRNG, Save R2 
53 04 AC 00 00002 MOVL RANGE, R2 
1 01 Ag 91 00006 CMPB 1(R2), #19 
05 13 QOOOA BEQL 1 
10 Ae rf 0000C TSTL 16(R2) 
11 13 OOO0F BEQL 
00000000G 8F DD 00011 1$: PUSHL #EDT$_RANNONCON 
000000006 00 01 FB 00017 CALLS #1, EBTSSFMT_MSG 
50 01 DO OOO1E MOVL #1, RO 
04 Boos RET 
0D 01 ag 91 00022 2$: CMPB 1(R2), #13 
08 12 p00s8 BNEQ 
04 A2 DD 00028 PUSHL  4(R2) 
D1 AF 01 FB 00028 CALLS #1, EDTSSTST_NONCNTGRNG 
04 Benge RET 
50 D4 00030 3$: CLRL RO 
04 00032 RET 


51 bytes, Routine Base: _EDTSCODE + 0000 


0719 1 
0720 1 !<BLF/PAGE> 


ones 
« SRCJLNONCTG.BLI;1 
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0657 
0701 


0704 
0712 
0714 


0716 
0718 


, 
VOs-DOD © —_EDISETSTCNONCNTERNG © Rest for Roneonttguous Tensep-9ee $o:a8:3) — DreKSUMERASTERS 
; O78 ! END ! of module EDTSLNONCTG 
07 : 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
-EDTSCODE 51 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
coccoccee Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
%, $SDUA28: CEDT.SRCIJEDT.L32;1 377 52 13 40 00:00.2 
“ SDUA28: CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 


; Run Time: 
; Elapsed Time: 


; Lexemes/CPU-Min: 


COMMAND QUALIFIERS 


51 code yy data bytes 
00:13.2 
; Lines/CPU Min: 338 
129 


ry Used: 68 pages 
; Compilation Complete 


He sO eceg Pa 
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ge ; 


PLISS/CHECK SCF LELD, INITIAL OPTIMIZE) /NOTRACEBACK/L ES@1. 1SSsL NONE T6/0B)=08.J5 sL NONE TE MSRC$:LNONCTG.BLI/UPDATE=(ENHS:LNONCTG 
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